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EDTSCHMBEGWRD - search for beginning of word 1$-se 1984 23:45: AX-11 Bliss-32 V4.0-74 Page 1. 
° ° 12-80 8-198e $3:33:39 YEDT SREICHABEGURD BL I. “ (1) 
0001 ZTITLE “EDTSCHMBEGWRD = search for beginning of word’ 

§ MODULE EDTSCHMBEGWRD ( ! Search for beginning of word 
? {DENT = *v04-000' ! File: CHMBEGWRD.BLI Edit: JBS1006 
= | 
005 BEGIN 
097 PITIIITITILIITIILLILLLL LIL LLL LTT LLL liiiiitiiiiiiiiitiiiiiiiitiiiiiil 
is | 
6009 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
0010 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
Bet it ALL RIGHTS RESERVED. 
$018 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0014 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

st 'e INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


® 

® 

® 

® 

® 

® 

® 

*« 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
: ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
D SHOULD IT . 

® 

® 

* 

* 

® 

® 

* 


E 
'® AN NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: EDT -=- The DEC Standard Editor 
| 
| 
} 
| 


3 ‘ 
3 ‘ 
3 : 
; : ABSTRACT: 
; This module moves backward to the beginning of a word. 
3 O2 35 ! ENVIRONMENT: Runs at any access mode - AST reentrant 
re Opee ; AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
4 004¢ i MODIFIED BY: 
4 004 : 
44 Bose ! 1-001 - Original. DJS 04-Feb-1981. This module was created b 
45 5 : extracting the routine EDTSSFND_BWO from module CHANGE.BLI. 
46 Boss ! 1-002 - Regularize headers. 48S 27-Feb-1981 
47 004 ! 1-003 - Fix module name. JBS 02-Mar-1981 
48 0048 ! 1-004 = Add handling of new word type. STS 23-Oct-1981 
49 0049 ! 1-005 = Return if we're at the beginning of the buffer. ts 21-Jun-1982 
20 ait } 1-006 - Add conditional for WPS support. JBS 10-Feb-198 
52 0052 1 
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; 5 8 4 
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3 g 0 4 
; 60 49 
; 6) 498 
; 6 0499 
; © Bene 
3 rt: 501 
. 2 $808 
a? or 0504 
: 68 0505 
; 69 0640 
; £0 0641 
: 71 064 
ae 064 
3 7 0644 
3 74 0645 
; 2 0646 
; 76 0647 
5 77 0648 
: 0649 
; 79 0650 
; 0651 
; #81 065 
; & 065 
; § 0654 
ee 0655 
; 0656 
> 0657 
: 87 0658 


EDTSCHMBEGWRD - search for beginning of word 
Declarations 


1 


a at a a ss = =) 4) 2s 9 bs Ss 2 ds > 2s 2) 2s as 1) 2 os 1 ss 


9 
18-se =1984 23:45:1 AX-11 Bliss-32 V4.0-74 
122808= 1382 93:53:39 YEOT.SRe iMeee cute bist 
XSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


EDTSSFND_BwD; ! Move backwards to the beginning of a word 


! INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
LIBRARY "EDTSRC:SUPPORTS'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 
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ZSBTTL ‘EDTSSFND_BWD - search for the beginning of a word’ 


GLOBAL ROUTINE EDTSSFND_BwD ( ! Search for the beginning of a word 
L_FLAG ! 1 = stop at start of Line 


'¢ 


: FUNCTIONAL DESCRIPTION: 
Move backwards to the beginning of a word. 
FORMAL PARAMETERS: 
L_FLAG 1 = do not go beyond the beginning of a Line 
IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The Length of the word 
SIDE EFFECTS: 

NONE 


ltt te te ted ed et i tt tt) tt tt te te te 


BEGIN 


EXTERNAL ROUTINE 
EDTSSTST_ENTDELIM, 
EDTS$$CS_CEFT 
EDTSSCS_RIGHT; 


Move left a character 
Move right a character 


EXTERNAL 
EDT$$A_US_ENT : VECTOR, 
EDT$$T_LN~BUF , 


ZIF SUPPORT_WPS 
aT 


Pointers to user defined entities 
Current Line buffer 


OF] EDTSSG_WRDTYP, ! indicate whether or not to include delimiters 
EDTSSA_LN_PTR; ! Current character pointer 
LOCAL 
SIZE; 


ee eer oe ee ae ee NT a ee ee ee ee Ee 


Determine if the current character is an entity delimiter 


ERT ERIC CURD 
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00000 
wn 


+ 
Do not go beyond the beginning of file. 


IF ( NOT EDTSSCS_LEFT ()) THEN EXITLOOP; 


te 
Continue search. 


SIZE = .SIZE + 1; 
END; 


'¢ 
! If we moved across ony characters before finding a delimiter, then d 
! not include the delimit 

character. 


ts) 
er in the word, otherwise, the word is the delimiter 


SSSLESRALLSSELESAE 


re GTR 0) AND EDTSSTST_ENTDELIM (.EDTSSA_US_ENT [0])) 


EDTS 

EDTS 
s 1% 7 SIZE = 0; ; 
3 123 7 ‘ + ; 
; 148 7 3 : Go past all spaces to the left first. If nodelimiters set, also go past 3 
; 149 7 ! all delimiters. $ 
3; 3190 720 ta 3 
; «6151 721 3 
ae § L 07 § Z1F SUPPORT_WPS : 
3 12? f ? XTHEN : 
; 139 0725 IF (.EDT$$G_WRDTYP EQL NOT_DELIMITED) 3 
3 : $ 44 § THEN ‘ 
: 136 oF 8 WHILE (EDTSSTST_ENTDELIM (.EDTSS$A_US_ENT (0J)) DO : 
: 199 4 IF EDTSSCS_LEFT () THEN SIZE = .SIZE + 1 ELSE RETURN (.SIZE) | 
; 168 0734 ELSE ; 
3; 16 7 2FI : 
; 164 734 : 
8 19? oy? WHILE (CHSRCHAR (.EDTSSA_LN_PTR) EQL %C* ') DO | : 
: Hy +4 HA IF EDTSSCS_LEFT () THEN SIZE = .SIZE + 1 ELSE RETURN (.SIZE); | 
: 169 739 2 '+ 3 
: ity a Keep moving left until we hit a terminator or beginning of file. : 
: 17 742 2 | : 
: 178 4 WHILE ( NOT EDTSSTST_ENTDELIM (.EDTSS$A_US_ENT (0])) DO é 
; 123 : ; BEGIN : 
: '¢ : 
3 178 e ; If L_FLAG is 1, do not go beyond the beginning of Line. : 
: 178 4 ; 
; 9 4 IF ((.LLFLAG EQL 1) AND CHSPTR_EQL (.EDTSSA_LN_PTR, CHSPTR (EDTSS$T_LN_BUF))) THEN EXITLOOP; 
<4 
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BEGIN 
SIZE = .SIZE - 1; 
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0-7 
BLI; 
PIC,2 
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SHR, 


EDT. SRCICHMBEGWRD. 


AX-11 B 


-EDTSCODE ,NOWRT, 


-TITLE EDTSCHMBEGWRD EDTSCHMBEGWRD - search for be 


IDENT \V04-000\ 


! of routine EDTSSFND_BWRD 
-PSECT 


word 


ginning of 
- search for the beginning of a w 
RIGHT (); 


EDTS$SCS 
END; 
RETURN (.SIZE); 


HMBEGWRD = search for be 
END; 
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f word 


= search for beginning 


Eotse 9 
EDTSSFND_BWD = search for the beginn 
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_RIGHT 


EDTSS$CS 
RO 


000000006 90 


_EDTSCODE + 0000 


Routine Base: 


138 bytes, 


; Routine Size: 


! <BLF /PAGE> 


Size: 138 code + 0 data bytes 
Run Time 00:12.7 

flessed Time: 00:15.4 

Lines/CPU Min: 370 
Lexemes/CPU-Min: 10578 

Memory Used: 81 pages 
Compication Complete 
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EDTSCHMBEGWRD EDTSCHMBEGWRD - search for beginning of word 18. -S$ep-1984 23:45:1 AX-11 Bliss-32 V4.0-7 Page 7) 

042000 EDTSSFND_BWD = search for the beginning of aw 14-Sep- ats ri $3: :22:2 EDT. SRC (HABE GURD BL I: ra 
s 21 780 1 END ! of module EDTSCHMBEGWRD 3 
313 Ore 1 - | 
: 21 0782 0 ELUDOM | ; 
Boy! 
: PSECT SUMMARY | ; 
4 Name Bytes Attributes | ; 
;  JEDTSCODE 138 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 3 
; Library Statistics | : 
Re TI a A oe an SYEROLG Stowese= Pages Processing | ; 
; File Total Loaded Percent Mapped Time : 
> _$255$DUA28:CEDT.SRCJEDT.L32;1 377 2 0 40 00:00.2 ; 
> 7$255$puUA28: :LEDT. SRCIPSECTS L324 2 1 50 7 00:00.1 ; 
; T$255$DUAZ8: CEDT.SRCISUPPORTS.L 52; 1 2 1 50 5 00:00.1 | : 
; COMMAND QUALIFIERS | : 
: BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/L1S=L 1$$: CHMBEGWRD/0BJ=0BJ$ : CHMBEGURD MSRC$: CHMBEGWRD .BL1/UPDATE=(ENHS:(¢ 3 
| 
: 
| Py 
: 
: 
Py 
} Py 
| ° 
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